home *** CD-ROM | disk | FTP | other *** search
/ PC Media 22 / PC MEDIA CD22.iso / share / prog / spm220e / convertp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-10-09  |  3.6 KB  |  112 lines
  1. {
  2. ╔═════════════════════════════════════════════════════════════════════════════╗
  3. ║ NAME      : CONVERTP.PAS: CONVASC and CONVHEX routines.                     ║
  4. ║ VERSION   : v 1.0                                                           ║
  5. ║ FILE TYPE : Use TURBO.EXE to make the executable file...                    ║
  6. ║ FUNCTION  : Shows how to use the ASCII <--> HEXA transcoding routines       ║
  7. ║           : from the PASCAL language.                                       ║
  8. ║           : Their main goal is to permit to a SERIAL PORTS MANAGER applic.  ║
  9. ║           : using the Xon/Xoff protocol to transmit binary informations     ║
  10. ║           : without any interferences with the soft hand-shaking...         ║
  11. ║           : ATTENTION: Each binary code is associated to 2 ASCII codes.     ║
  12. ║           : Therefore, the efficiency of an ASCII transmission is less      ║
  13. ║           : than for a binary transmission ! ONLY USE THESE PROCEDURES      ║
  14. ║           : IF YOU CAN NOT DO OTHERWISE...                                  ║
  15. ║ SYNTAX    : CONVERTP                                                        ║
  16. ║ COPYRIGHT : HETRU Fabrice 1991.                                             ║
  17. ╚═════════════════════════════════════════════════════════════════════════════╝
  18. }
  19.  
  20.  
  21.  
  22. USES Dos, Crt;
  23.  
  24.  
  25.  
  26. TYPE CHAR2 = string[2];
  27.  
  28.  
  29. VAR
  30.   fin    : BOOLEAN ;
  31.   caract : CHAR    ;
  32.   dest   : CHAR2   ;
  33.  
  34.  
  35. PROCEDURE ConvAscii(VAR pte: CHAR; VAR pts: CHAR2);
  36. { Makes 2 ASCII codes from pte (hexa.) into pts...                            }
  37.   VAR
  38.     car: CHAR;
  39.     cr : BYTE absolute car;
  40.     val: CHAR;
  41.     vl : BYTE absolute val;
  42.   BEGIN
  43.     (* Storing the hexa. number. *)
  44.     val := pte;
  45.     (* Converting the left half-byte *)
  46.     cr := (vl shr 4) + $30;
  47.     pts[2] := car;
  48.     (* Converting the right half-byte *)
  49.     cr := (vl AND $0F) + $30;
  50.     (* Returning the result *)
  51.     pts[1] := car;
  52.   END;
  53.  
  54.  
  55. PROCEDURE ConvHexa(VAR pte: CHAR2; VAR pts: CHAR);
  56. { Converts, into 1 HEXA, the 2 ASCII codes from pte into pts.                 }
  57.   VAR
  58.     car : CHAR;
  59.     cr  : BYTE absolute car;
  60.     car1: CHAR;
  61.     cr1 : BYTE absolute car1;
  62.     car2: CHAR;
  63.     cr2 : BYTE absolute car2;
  64.   BEGIN
  65.     car1 := pte[1];
  66.     car2 := pte[2];
  67.     (* Converting the left half-byte *)
  68.     cr := (cr2 - $30) shl 4;
  69.     (* Converting the right half-byte *)
  70.     cr := cr + (cr1 - $30);
  71.     (* Returning the result *)
  72.     pts := car;
  73.   END;
  74.  
  75.  
  76. BEGIN
  77.   fin := FALSE;
  78.   WRITELN('CONVERTP: A demostration of the HEXA <--> ASCII trancoding.');
  79.   WRITELN('            (Press 'Esc' to end this program).');
  80.   WHILE NOT FIN DO
  81.   BEGIN
  82.     (* Get the byte to transcode *)
  83.     WRITELN;
  84.     WRITE('Character: ');
  85.     WHILE NOT KeyPressed DO;
  86.     caract := ReadKey;
  87.     if (caract<>chr($0d)) THEN WRITE(caract)
  88.       ELSE WRITE(' ');
  89.     if (caract=chr($1b)) THEN fin := TRUE;
  90.  
  91.     (* HEXA-->ASCII transcoding *)
  92.     ConvAscii(caract,dest);
  93.     (* Write the resulting code on screen *)
  94.     WRITE(' --ConvAscii--> ',dest[1],dest[2]);
  95.  
  96.     (* IN THAT POINT, THE ASCII BYTES MAY BE TRANSMITED WITHOUT ANY RISK
  97.        TO INTERFER WITH THE Xon/Xoff HAND-SHAKING
  98.        (whose codes are included between 0 and 29h...).
  99.        INCONVENIENT from this method: For each byte to send, 2 bytes have
  100.        to be transmited !... *)
  101.  
  102.     (* ASCII-->HEXA transcoding *)
  103.     ConvHexa(dest,caract);
  104.     (* Write the restituted byte into screen (=Primary byte si O.K.) *)
  105.     WRITE(' --ConvHexa-->   ');
  106.     if (caract<>chr($0d)) THEN WRITE(caract)
  107.       ELSE WRITE(' ')
  108.   END;
  109.   WRITELN;
  110.   WRITELN('CONVERTP has ended --- (C)HETRU Fabrice.')
  111. END.
  112.